﻿Imports omen02
Public Class WebForm1

    Inherits System.Web.UI.Page
    Protected Sub btnIngresar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnIngresar.Click
        Try
            Dim negocio As New UsuarioNegocio
            Dim modelo = negocio.validar(Me.txtUsuario.Text, Me.txtClave.Text)


            ' Es empleado
            If Constantes.ROL_ADMIN = x.rolNombre Then
                url = "~/menucliente.aspx"
            End If

            Next

            Session.Add("USUARIO_ACTUAL", modelo)

            Response.Redirect(url, False)

        Catch ex As Exception
            Response.Write(ex.Message)
        End Try

    End Sub
    End Sub
End Class